home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Apple / Macintosh Printing Tools.cpt / Macintosh Printing Tools.image / LaserWriter Utilities / LaserWriter Font Utility / LaserWriter Font Utility.rsrc / STR#_129.txt < prev    next >
Text File  |  1991-01-28  |  3KB  |  63 lines
  1. (dummyjob) = 
  2.  
  3.  
  4. userdict /sysStartPatched true put
  5.  
  6. (Sys/OldStart) status {pop pop pop pop (Sys/OldStart) deletefile} if (Sys/Start) status {pop pop pop pop (Sys/Start) (Sys/OldStart) renamefile} if (temp/start) (Sys/Start) renamefile 
  7.  
  8. (usr/truetypeinstall) dup status { pop pop pop pop 
  9. run userdict /sysStartPatched true put} if (Sys/OldStart) 
  10. dup status { pop pop pop pop run } if 
  11.  
  12.  
  13.  (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop 
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25. if} if userdict /TrueDict known { TrueDict /version known {(scalerVersion:) print TrueDict /version get = } if } if
  26.  
  27. {(classA) =}{classBTest} ifelse}{classBTest} ifelse userdict /TrueDict known {(scalerPresent) =} if userdict /sysStartPatched known { userdict /sysStartPatched get {(sysStartPatched) =} 
  28.  
  29. cleartomark} forall} if} if end /classBTest {systemdict /eexec known systemdict /cexec known and {vmstatus 3 -1 roll pop exch sub 120000 ge {(classB) =}{(lowMemClassB) =} ifelse}{(classC) =} ifelse } bind def userdict /type42known known {type42known 
  30.  
  31. =} if systemdict /devformat known systemdict /cshow known and {(hasCompFonts) = compFontFileCheck {mark exch {} 255 string filenameforall counttomark 0 gt {(disk) search {pop pop 0 get 48 sub 1 bitshift 1 or 15 and =} {0 =} ifelse} {0 =} ifelse 
  32.  
  33. {(hasDisk) =} if} {(mayHaveDisk) =} ifelse systemdict /devformat known {(distinguishesDisks) = /disksPresent 0 def {(disk) search {pop pop 0 get 48 sub 2 exch exp cvi disksPresent add /disksPresent exch def} if} 100 string devforall disksPresent 
  34.  
  35. statusdict begin (notSpooler) = statusdict /cartstatus known {(%cartridge1%) cartstatus {(hasCartridge) = pop pop pop} if} if statusdict /diskstatus known {diskstatus 0 gt {(hasInitDisk) =} if pop statusdict /diskonline known {diskonline
  36.  
  37. (w) file /out exch def /in (%stdin) (r) file def {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore { /out load closefile exit} if} loop 
  38.  
  39. (r) file /in exch def /out (%stdout) (w) file def statusdict /waittimeout 0 put {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore {/in load closefile exit} if} loop 
  40.  
  41. (w) file /out exch def (r) file /in exch def {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore {/in load closefile /out load closefile exit} if} loop 
  42.  
  43. statusdict /waittimeout 0 put 
  44.  
  45. vmstatus exch sub = pop flush 
  46.  
  47. (temp/font) (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop
  48.  
  49. $error /newerror false put 0 serverdict begin exitserver 
  50.  
  51. $error /newerror false put serverdict begin 0 exitserver statusdict begin 0 1 initializedisk 20 setuserdiskpercent end
  52.  
  53. (%cartridge*%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  54.  
  55. (%disk*%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  56.  
  57. (%disk%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  58.  
  59. (fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 
  60.  
  61. /str 100 string def FontDirectory {pop str cvs == flush} forall 
  62.  
  63.